home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / BACKSPAC.M < prev    next >
Encoding:
Text File  |  1989-08-15  |  1.1 KB  |  3 lines
  1. ⓪ MODULE t; (*$E MOS *)⓪ (*$c-*)⓪ FROM SYSTEM IMPORT ADDRESS, ADR, TSIZE, BYTE, WORD, LONGWORD, VAL;⓪ import tosio;⓪ FROM InOut IMPORT write, ReadString, read, WriteLn, WriteString, readreal,⓪(writereal;⓪ var⓪ ch:char;⓪ i:CARDINAL;⓪ BEGIN⓪"WriteString ('start..');⓪"writeln;⓪"for i:= 1 to 100 do write ('.') end;⓪"for i:= 1 to 50 do write (chr(8)) end;⓪"write ('*');⓪"writeln;⓪"writeln;⓪"WriteString (' stop!');⓪"read(ch);⓪ end t.⓪ ə
  2. (* $FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$000000D9$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79D$FFEFB79DÇ$000000D9T.......T.......T...............T.......T.......TT......T.......T.......T.......$0000017C$0000018A$000000D9$000001BB$000000D9$000001BF$00000024$00000079$000000D9$0000017C$00000115$00000195$000000F2$00000147$00000156$00000167îÇé*)
  3.